﻿<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/page.asp"-->
<%
Call QuanXian(GuestBook_B)
Call QuanXian1("$9$")
'***************************************************************************************************
SQL="select * from Gbook order by id Desc "
set Rspro=Server.CreateObject("Adodb.Recordset")
Rspro.open SQL,Conn,1,1
dim strFileName,MaxPerPage

if request("page")<>"" then
	currentPage=cint(request("page"))
else
	currentPage=1
end if
ShowSmallClassType=ShowSmallClassType_Default
MaxPerPage=17
strFileName="?"
totalput=Rspro.Recordcount
'************************************************************************************************
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<title>无标题文档</title>
<link href="../css/style.css" rel="stylesheet" type="text/css">
<Script>
function CheckAll(form)
  {
  for (var i=0;i<form.elements.length;i++)
    {
    var e = form.elements[i];
    if (e.Name != "chkAll")
       e.checked = form.chkAll.checked;
    }
  }
</Script>
</head>

<body>
<form name="form1" style="margin:0px; " method="post" action="Gbook_Del.asp?Action=Del&Page=<%=currentPage%>">
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" class="table_border">
  <tr>
    <td colspan="2" class="padding_1 table_bg table_bg_size" align="center">留言管理</td>
  </tr>
  <tr>
    <td colspan="2">
	
	<table width="100%" border="0" align="center" cellpadding="0" cellspacing="1">
        <tr align="center" class="table_bg_n">
          <td width="8%" height="30"><strong>序号</strong></td>
          <td width="7%"><strong>选择</strong></td>
          <td width="34%"><strong>手机</strong></td>
          <td width="35%"><strong>姓名</strong></td>
          <td width="16%"><strong>留言日期</strong></td>
          </tr>
		<%
		IF Not Rspro.Eof then
			IF currentPage<>1 then
			Rspro.Move MaxPerPage*(currentPage-1)
			End if
		for T=1 to MaxPerPage
	    %>
        <tr class="table_bg_n">
          <td height="25" align="center"><%=T%></td>
          <td align="center"><input name='ID' type='checkbox' id="ID" value='<%Tw(Rspro("ID"))%>'></td>
          <td align="center"><%=Rspro("phone")%></td>
          <td align="center"><%=Rspro("username")%></td>
          <td align="center"><%=Dtime(Rspro("addtime"),1)%></td>
        </tr>
	   <%
		Rspro.MoveNext
		IF Rspro.Eof then exit for 
		Next
		End if
		Call rsclose(Rspro)
	  %>
     <tr class="table_bg_n">
      <td height="30" align="center">全选</td>
      <td align="center"><input name="chkAll" type="checkbox" id="chkAll" onclick=CheckAll(this.form) value="checkbox"></td>
      <td colspan="6" class="padding-left-10"><input type="submit" style="padding-top:3px; cursor:pointer" name="Submit" value="删除选中留言"></td>
       </tr>
	  <tr align="right" valign="bottom" class="table_bg_n">
       <td height="30" colspan="9"><%call showpage(strFileName,totalput,MaxPerPage,true,true,"条留言")%></td>
      </tr>
    </table>
	</td>
  </tr>
</table>
</form>
</body>
</html>